Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / parser / parse.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1996-05-21 | 29.2 KB | 784 lines

VERSION 2.00 Begin Form Form1 BackColor = &H00C0C0C0& BorderStyle = 3 'Fixed Double Caption = "PARSER" ClientHeight = 5790 ClientLeft = 3030 ClientTop = 1455 ClientWidth = 7635 Height = 6195 Icon = PARSE.FRX:0000 KeyPreview = -1 'True Left = 2970 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False Picture = PARSE.FRX:0302 ScaleHeight = 5790 ScaleWidth = 7635 Top = 1110 Width = 7755 Begin DBPush cd_Sample1 Alignment = 2 'Center BackColor = &H00C0C0C0& BackColorDown = &H00C0C0C0& BevelWidth = 2 Caption = "Sample &8" CornerColor = &H00000000& FocusRect = -1 'True Font3D = 0 'None Font3DDisabled = 0 'None ForceDown = 0 'False ForceUp = 0 'False ForeColorDisabled= &H00000000& Height = 375 Index = 7 Left = 5700 Outline = -1 'True OutlineSize = 1 Picture = PARSE.FRX:0604 Placement = 1 'Text right of picture Style = 0 'Normal TabIndex = 19 Top = 3720 TransColor = &H00000000& Transparent = 0 'False VertAlignment = 2 'Center Width = 1575 End Begin DBPush cd_Sample1 Alignment = 2 'Center BackColor = &H00C0C0C0& BackColorDown = &H00C0C0C0& BevelWidth = 2 Caption = "Sample &4" CornerColor = &H00000000& FocusRect = -1 'True Font3D = 0 'None Font3DDisabled = 0 'None ForceDown = 0 'False ForceUp = 0 'False ForeColorDisabled= &H00000000& Height = 375 Index = 3 Left = 5700 Outline = -1 'True OutlineSize = 1 Picture = PARSE.FRX:0906 Placement = 1 'Text right of picture Style = 0 'Normal TabIndex = 15 Top = 3300 TransColor = &H00000000& Transparent = 0 'False VertAlignment = 2 'Center Width = 1575 End Begin DBPush cd_Sample1 Alignment = 2 'Center BackColor = &H00C0C0C0& BackColorDown = &H00C0C0C0& BevelWidth = 2 Caption = "Sample &7" CornerColor = &H00000000& FocusRect = -1 'True Font3D = 0 'None Font3DDisabled = 0 'None ForceDown = 0 'False ForceUp = 0 'False ForeColorDisabled= &H00000000& Height = 375 Index = 6 Left = 3960 Outline = -1 'True OutlineSize = 1 Picture = PARSE.FRX:0C08 Placement = 1 'Text right of picture Style = 0 'Normal TabIndex = 18 Top = 3720 TransColor = &H00000000& Transparent = 0 'False VertAlignment = 2 'Center Width = 1620 End Begin DBPush cd_Sample1 Alignment = 2 'Center BackColor = &H00C0C0C0& BackColorDown = &H00C0C0C0& BevelWidth = 2 Caption = "Sample &3" CornerColor = &H00000000& FocusRect = -1 'True Font3D = 0 'None Font3DDisabled = 0 'None ForceDown = 0 'False ForceUp = 0 'False ForeColorDisabled= &H00000000& Height = 375 Index = 2 Left = 3960 Outline = -1 'True OutlineSize = 1 Picture = PARSE.FRX:0F0A Placement = 1 'Text right of picture Style = 0 'Normal TabIndex = 14 Top = 3300 TransColor = &H00000000& Transparent = 0 'False VertAlignment = 2 'Center Width = 1605 End Begin DBPush cd_Sample1 Alignment = 2 'Center BackColor = &H00C0C0C0& BackColorDown = &H00C0C0C0& BevelWidth = 2 Caption = "Sample &6" CornerColor = &H00000000& FocusRect = -1 'True Font3D = 0 'None Font3DDisabled = 0 'None ForceDown = 0 'False ForceUp = 0 'False ForeColorDisabled= &H00000000& Height = 375 Index = 5 Left = 2220 Outline = -1 'True OutlineSize = 1 Picture = PARSE.FRX:120C Placement = 1 'Text right of picture Style = 0 'Normal TabIndex = 17 Top = 3720 TransColor = &H00000000& Transparent = 0 'False VertAlignment = 2 'Center Width = 1605 End Begin DBPush cd_Sample1 Alignment = 2 'Center BackColor = &H00C0C0C0& BackColorDown = &H00C0C0C0& BevelWidth = 2 Caption = "Sample &2" CornerColor = &H00000000& FocusRect = -1 'True Font3D = 0 'None Font3DDisabled = 0 'None ForceDown = 0 'False ForceUp = 0 'False ForeColorDisabled= &H00000000& Height = 375 Index = 1 Left = 2220 Outline = -1 'True OutlineSize = 1 Picture = PARSE.FRX:150E Placement = 1 'Text right of picture Style = 0 'Normal TabIndex = 13 Top = 3300 TransColor = &H00000000& Transparent = 0 'False VertAlignment = 2 'Center Width = 1605 End Begin DBPush cd_Sample1 Alignment = 2 'Center BackColor = &H00C0C0C0& BackColorDown = &H00C0C0C0& BevelWidth = 2 Caption = "Sample &5" CornerColor = &H00000000& FocusRect = -1 'True Font3D = 0 'None Font3DDisabled = 0 'None ForceDown = 0 'False ForceUp = 0 'False ForeColorDisabled= &H00000000& Height = 375 Index = 4 Left = 510 Outline = -1 'True OutlineSize = 1 Picture = PARSE.FRX:1810 Placement = 1 'Text right of picture Style = 0 'Normal TabIndex = 16 Top = 3720 TransColor = &H00000000& Transparent = 0 'False VertAlignment = 2 'Center Width = 1560 End Begin DBPush cd_Sample1 Alignment = 2 'Center BackColor = &H00C0C0C0& BackColorDown = &H00C0C0C0& BevelWidth = 2 Caption = "Sample &1" CornerColor = &H00000000& FocusRect = -1 'True Font3D = 0 'None Font3DDisabled = 0 'None ForceDown = 0 'False ForceUp = 0 'False ForeColorDisabled= &H00000000& Height = 375 Index = 0 Left = 510 Outline = -1 'True OutlineSize = 1 Picture = PARSE.FRX:1B12 Placement = 1 'Text right of picture Style = 0 'Normal TabIndex = 12 Top = 3300 TransColor = &H00000000& Transparent = 0 'False VertAlignment = 2 'Center Width = 1560 End Begin SSPanel lbl_Resultat BackColor = &H00FFFFFF& BevelOuter = 1 'Inset BevelWidth = 2 Caption = "48" ForeColor = &H000000FF& Height = 495 Left = 3750 TabIndex = 44 Top = 5010 Width = 2025 End Begin DBPush cd_Calculation Alignment = 2 'Center BackColor = &H00C0C0C0& BackColorDown = &H00C0C0C0& BevelWidth = 2 Caption = "&Calculation" CornerColor = &H00000000& FocusRect = -1 'True Font3D = 0 'None Font3DDisabled = 0 'None ForceDown = 0 'False ForceUp = 0 'False ForeColorDisabled= &H00000000& Height = 855 Left = 2010 Outline = -1 'True OutlineSize = 1 Picture = PARSE.FRX:1E14 Placement = 0 'Text below picture Style = 0 'Normal TabIndex = 1 Top = 4830 TransColor = &H00000000& Transparent = 0 'False VertAlignment = 1 'Bottom Width = 1455 End Begin SSFrame Frame3D1 Caption = "Datas" Height = 2385 Left = 540 TabIndex = 23 Top = 810 Width = 6675 Begin SSPanel Panel3D1 BackColor = &H00FFFFFF& BevelOuter = 1 'Inset BevelWidth = 2 Height = 345 Index = 10 Left = 4260 TabIndex = 43 Top = 1980 Width = 2025 Begin TextBox Datas BorderStyle = 0 'None FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 9 Left = 90 TabIndex = 11 Text = "Male" Top = 60 Width = 1845 End End Begin SSPanel Panel3D1 BackColor = &H00FFFFFF& BevelOuter = 1 'Inset BevelWidth = 2 Height = 345 Index = 9 Left = 4260 TabIndex = 41 Top = 1560 Width = 2025 Begin TextBox Datas BorderStyle = 0 'None FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 8 Left = 90 TabIndex = 10 Text = "32" Top = 60 Width = 1845 End End Begin SSPanel Panel3D1 BackColor = &H00FFFFFF& BevelOuter = 1 'Inset BevelWidth = 2 Height = 345 Index = 8 Left = 4260 TabIndex = 39 Top = 1140 Width = 2025 Begin TextBox Datas BorderStyle = 0 'None FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 7 Left = 90 TabIndex = 9 Text = "4" Top = 60 Width = 1845 End End Begin SSPanel Panel3D1 BackColor = &H00FFFFFF& BevelOuter = 1 'Inset BevelWidth = 2 Height = 345 Index = 7 Left = 4260 TabIndex = 37 Top = 720 Width = 2025 Begin TextBox Datas BorderStyle = 0 'None FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 6 Left = 90 TabIndex = 8 Text = "3" Top = 60 Width = 1845 End End Begin SSPanel Panel3D1 BackColor = &H00FFFFFF& BevelOuter = 1 'Inset BevelWidth = 2 Height = 345 Index = 6 Left = 4260 TabIndex = 35 Top = 300 Width = 2025 Begin TextBox Datas BorderStyle = 0 'None FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 5 Left = 90 TabIndex = 7 Text = "2525" Top = 60 Width = 1845 End End Begin SSPanel Panel3D1 BackColor = &H00FFFFFF& BevelOuter = 1 'Inset BevelWidth = 2 Height = 345 Index = 5 Left = 960 TabIndex = 33 Top = 1980 Width = 2025 Begin TextBox Datas BorderStyle = 0 'None FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 4 Left = 90 TabIndex = 6 Text = "125000" Top = 60 Width = 1845 End End Begin SSPanel Panel3D1 BackColor = &H00FFFFFF& BevelOuter = 1 'Inset BevelWidth = 2 Height = 345 Index = 4 Left = 960 TabIndex = 31 Top = 1560 Width = 2025 Begin TextBox Datas BorderStyle = 0 'None FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 3 Left = 90 TabIndex = 5 Text = "12:00:00" Top = 60 Width = 1845 End End Begin SSPanel Panel3D1 BackColor = &H00FFFFFF& BevelOuter = 1 'Inset BevelWidth = 2 Height = 345 Index = 3 Left = 960 TabIndex = 29 Top = 1140 Width = 2025 Begin TextBox Datas BorderStyle = 0 'None FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 2 Left = 90 TabIndex = 4 Text = "10/10/1994" Top = 60 Width = 1845 End End Begin SSPanel Panel3D1 BackColor = &H00FFFFFF& BevelOuter = 1 'Inset BevelWidth = 2 Height = 345 Index = 2 Left = 960 TabIndex = 27 Top = 720 Width = 2025 Begin TextBox Datas BorderStyle = 0 'None FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 1 Left = 90 TabIndex = 3 Text = "Paris" Top = 60 Width = 1845 End End Begin SSPanel Panel3D1 BackColor = &H00FFFFFF& BevelOuter = 1 'Inset BevelWidth = 2 Height = 345 Index = 1 Left = 960 TabIndex = 25 Top = 300 Width = 2025 Begin TextBox Datas BorderStyle = 0 'None FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 0 Left = 90 TabIndex = 2 Text = "Tricaud Christophe" Top = 60 Width = 1845 End End Begin Label Label2 BackColor = &H00C0C0C0& Caption = "&Sex" Height = 225 Index = 9 Left = 3510 TabIndex = 42 Top = 2070 Width = 675 End Begin Label Label2 BackColor = &H00C0C0C0& Caption = "&Age" Height = 225 Index = 8 Left = 3540 TabIndex = 40 Top = 1650 Width = 675 End Begin Label Label2 BackColor = &H00C0C0C0& Caption = "&Children" Height = 225 Index = 7 Left = 3540 TabIndex = 38 Top = 1230 Width = 735 End Begin Label Label2 BackColor = &H00C0C0C0& Caption = "&Car" Height = 225 Index = 6 Left = 3510 TabIndex = 36 Top = 810 Width = 675 End Begin Label Label2 BackColor = &H00C0C0C0& Caption = "&Taxes" Height = 225 Index = 5 Left = 3510 TabIndex = 34 Top = 390 Width = 675 End Begin Label Label2 BackColor = &H00C0C0C0& Caption = "&Income" Height = 225 Index = 4 Left = 210 TabIndex = 32 Top = 2070 Width = 675 End Begin Label Label2 BackColor = &H00C0C0C0& Caption = "&Time" Height = 225 Index = 3 Left = 240 TabIndex = 30 Top = 1650 Width = 675 End Begin Label Label2 BackColor = &H00C0C0C0& Caption = "&Date" Height = 225 Index = 2 Left = 210 TabIndex = 28 Top = 1230 Width = 675 End Begin Label Label2 BackColor = &H00C0C0C0& Caption = "&Town" Height = 225 Index = 1 Left = 210 TabIndex = 26 Top = 810 Width = 675 End Begin Label Label2 BackColor = &H00C0C0C0& Caption = "&Name" Height = 225 Index = 0 Left = 210 TabIndex = 24 Top = 390 Width = 675 End End Begin SSPanel Panel3D2 BevelOuter = 1 'Inset BorderWidth = 1 Caption = "SAMPLES" FontBold = -1 'True FontItalic = 0 'False FontName = "Times New Roman" FontSize = 24 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 585 Left = 1380 TabIndex = 21 Top = 120 Width = 4935 Begin Image Image1 Height = 480 Left = 180 Picture = PARSE.FRX:2116 Top = 90 Width = 480 End End Begin SSPanel Panel3D1 BackColor = &H00FFFFFF& BevelOuter = 1 'Inset BevelWidth = 2 Height = 345 Index = 0 Left = 390 TabIndex = 20 Top = 4410 Width = 6975 Begin TextBox Text1 BorderStyle = 0 'None FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Left = 60 TabIndex = 0 Text = "Children * 12" Top = 60 Width = 6825 End End Begin Label Label1 BackColor = &H00C0C0C0& Caption = "Formula:" Height = 195 Left = 390 TabIndex = 22 Top = 4170 Width = 2085 End Option Explicit Dim Formulas(8) As String 'Formules pour les diff rents exemples Sub cd_Calculation_Click () ' ' ' ' 'On effectue le calcul ' ' ' ' ' lbl_Resultat = Formule(Text1) End Sub Sub cd_Sample1_Click (Index As Integer) ' ' ' ' 'On a press un bouton ' ' ' ' ' Text1 = Formulas(Index) cd_Calculation_Click End Sub Sub Datas_KeyPress (Index As Integer, Keyascii As Integer) If Keyascii = 13 Then Keyascii = 0 SendKeys ("{TAB}") End If End Sub Sub Form_Load () 'Centrage ' Move (screen.Width - Width) / 2, (screen.Height - Height) / 2 'Saisie des formules ' Formulas(0) = "Taxes * If(Car<3,2,3)" Formulas(1) = "Town= ""Paris"" and Name # ""Chris"" and (Income <100000 or Children >3)" Formulas(2) = "int(Taxes/100) * Children + Abs(Income -200000)/2" Formulas(3) = "Age * (Sex = ""Male"")+15^Children" Formulas(4) = "If (Date <""01/01/95"" and Date >""1/1/94"",Children *5, Children *2)" Formulas(5) = "Town" Formulas(6) = "If((Town = ""Paris"") and (Date <""11/11/93""),IF(Income < 100000,1,0),-1)" Formulas(7) = "Town & "" - "" & Name" 'Saisie des intitul s ' ReDim Intitule(10) Intitule(1) = "NAME" Intitule(2) = "TOWN" Intitule(3) = "DATE" Intitule(4) = "TIME" Intitule(5) = "INCOME" Intitule(6) = "TAXES" Intitule(7) = "CAR" Intitule(8) = "CHILDREN" Intitule(9) = "AGE" Intitule(10) = "SEX" End Sub Sub Text1_GotFocus () Text1.SelStart = 0 Text1.SelLength = 60000 End Sub Sub Text1_KeyPress (Keyascii As Integer) If Keyascii = 13 Then Keyascii = 0 cd_Calculation_Click End If End Sub